home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Windows 1993 Fall / TestDrive Windows 1993 Fall.iso / opro / photoeps.dat < prev    next >
Encoding:
Text File  |  1991-03-12  |  5.4 KB  |  138 lines
  1. /concatprocs
  2.     { /proc2 exch cvlit def /proc1 exch cvlit def
  3.     /newproc proc1 length proc2 length add array def
  4.     newproc 0 proc1 putinterval newproc proc1 length proc2 putinterval
  5.     newproc cvx 
  6.     } def
  7. /inch { 72 mul } def
  8. /lightnslide              %% gray percnt ... grayt
  9.     { 1 index dup 0 eq exch 1 eq or 
  10.         { pop } 
  11.         { dup 0 lt 
  12.             { abs 100 exch sub mul 100 div } 
  13.             { dup 100 exch sub 3 -1 roll mul add 100 div } 
  14.             ifelse 
  15.         } ifelse 
  16.     } bind def
  17. /centrcompress            %% gray percnt ... grayt
  18.     { 1 index dup 0 eq exch 1 eq or 
  19.         { pop }
  20.         { dup 100 exch sub 3 -1 roll mul exch 2 div add 100 div } 
  21.         ifelse
  22.     } bind def
  23. /iquotfrac { div dup truncate dup 3 -1 roll exch sub } def
  24. /min { 1 index 1 index lt { pop } { exch pop } ifelse } def
  25. /max { 1 index 1 index gt { pop } { exch pop } ifelse } def
  26. /negcurv
  27.     1.1 1.3 1.7 2.3 3.1 4 5 6.1 7.5 8.7 9.9 11.1 12.3 13.3 14.2 14.7 15.1
  28.     17 array astore def
  29. /reprocurv
  30.     2 2.6 3.2 4 4.9 5.8 6.75 7.7 8.7 9.6 10.55 11.45 12.4 13.3 14.15 14.75 15
  31.     17 array astore def
  32. /loadneg
  33.     { /graycurv negcurv aload pop 17 array astore def } def
  34. /loadrepro
  35.     { /graycurv reprocurv aload pop 17 array astore def } def
  36. /lookupgray
  37.     { dup dup 0 eq exch 1 eq or not
  38.         { 255 mul 16 iquotfrac exch dup graycurv exch cvi get
  39.         exch  graycurv exch cvi 1 add get 
  40.         2 copy exch sub 4 -1 roll mul exch pop add
  41.         16 mul 255 div 1 min 0 max 
  42.         } if
  43.     } bind def
  45. showpage
  46. gsave
  47. grestore
  48. add
  49. sub
  50. neg
  51. exch
  52. %%!PS-Adobe-2.0 EPSF-1.2
  53. %%%%BoundingBox: %d %d %d %d
  54. %%%%Creator: %s
  55. %%%%Title: %s
  56. %%%%CreationDate: %s
  57. %%%%EndComments
  58. %%%%Trailer
  59. /height %d def
  60. /width %d def
  61. /negheight %d neg def
  62.     /negwidth %d neg def
  63. /xdot 72 %d div def /ydot 72 %d div def
  64. /grey %d def
  65. /theimage { width height grey [width 0 0 negheight 0 height] {currentfile picstr readhexstring pop} image} def
  66. { width height grey [width 0 0 negheight 0 height] {currentfile picstr readstring pop} image} def
  67. width xdot mul %d 100 div mul %s height ydot mul %d 100 div mul scale
  68. /picstr %d string def
  69. theimage
  70. { 1 exch sub } currenttransfer concatprocs settransfer
  71. currenttransfer { 1 exch sub } concatprocs settransfer
  72. { 84 mul 8 add 100 div } currenttransfer concatprocs settransfer
  73. { 90 mul 10 add 100 div } currenttransfer concatprocs settransfer
  74. { 9 mul 10 div } currenttransfer concatprocs settransfer
  75. %d %d { dup mul exch dup mul add 1 %s sub } setscreen
  76. %d %d { exch pop abs sqrt 2 mul 1 %s sub } setscreen
  77. %d %d { exch 180 mul sin .2 mul add 180 mul 4 mul sin %s } setscreen
  78. /xpapercntr 306 def   /ypapercntr 396 def
  79. xpapercntr width xdot mul %d 100 div mul 2 div sub
  80.     ypapercntr height ydot mul %d 100 div mul 2 div sub translate
  81. gsave newpath 0 0 moveto 8.5 72 mul 0 rlineto 0 11 72 mul rlineto 8.5 72 mul neg 0 rlineto closepath 0 setgray fill grestore
  82. %d %d div setlinewidth
  83. newpath 
  84.     0 0 moveto 
  85.     width xdot mul %d 100 div mul 0 rlineto 
  86.     0 height ydot mul %d 100 div mul rlineto 
  87.     width xdot mul %d 100 div mul neg 0 rlineto 
  88.     closepath stroke
  89. %%%%DocumentFonts: Helvetica-Bold
  90. { %d lightnslide } currenttransfer concatprocs settransfer 
  91. loadneg { lookupgray } currenttransfer concatprocs settransfer
  92. loadrepro { lookupgray } currenttransfer concatprocs settransfer 
  93. /TempDict 64 dict def TempDict begin
  94. end  %%TempDict
  95. matrix defaultmatrix setmatrix
  96. { dup dup mul -.85 mul exch .85 mul 2 mul add 1 .85 sub add }\n\r currenttransfer concatprocs settransfer 
  97. %d %d { dup mul exch dup mul add 1 sub } setscreen 
  98. %d %d { exch pop 2 mul 1 exch sub } setscreen 
  99. %d %d { exch pop 2 mul 1 sub } setscreen 
  100. %d %d { abs exch dup  mul add 1 %s sub } setscreen 
  101. /min { 1 index 1 index lt { pop } { exch pop } ifelse } def
  102. /max { 1 index 1 index gt { pop } { exch pop } ifelse } def 
  103. %d %d { /oval -1 %s def 3 mul 180 mul cos dup -.33 lt 
  104.     { -1 mul 3 mul 2 sub -1 max exch 180 mul cos dup -.75 gt 
  105.     { 1.14 mul .14 sub min %s /oval exch def } { pop pop } ifelse } 
  106.     { dup .33 gt { 3 mul 2 sub -1 max exch 180 mul cos dup .75 lt 
  107.     { -1 mul 1.14 mul .14 sub min %s /oval exch def } { pop pop } ifelse } 
  108.     { pop pop } ifelse } ifelse oval } setscreen 
  109. { dup dup mul -.93 mul exch .93 mul 2 mul add 1 .93 sub add }\n\r currenttransfer concatprocs settransfer
  110. /negwid width xdot mul 72 add def
  111. /neght height ydot mul 72 add def
  112. gsave xpapercntr negwid 2 div sub ypapercntr neght 2 div sub moveto
  113. negwid 0 rlineto 0 neght rlineto negwid neg 0 rlineto closepath 0 setgray fill grestore
  114. %%%%BeginPreview
  115. %%%%ImageWidth:%d
  116. %%%%ImageHeight:%d
  117. %%%%ImageDepth:%d
  118. %%%%BeginImage:%d
  119. %%%%EndImage
  120. %%%%EndPreview
  121. { width height grey [negwidth 0 0 negheight width height] {currentfile picstr readhexstring pop} image} def
  122. { width height grey [negwidth 0 0 negheight width height] {currentfile picstr readstring pop} image} def
  123. 0.25 setlinewidth 
  124.     newpath 
  125.     0 0 moveto
  126.     -72 0 rmoveto 36 0 rlineto 
  127.     36 -72 rmoveto 0 36 rlineto 
  128.     width xdot mul %d 100 div mul 0 moveto 
  129.     36 0 rmoveto 36 0 rlineto 
  130.     -72 -72 rmoveto 0 36 rlineto 
  131.     width xdot mul %d 100 div mul height ydot mul %d 100 div mul moveto 
  132.     36 0 rmoveto 36 0 rlineto 
  133.     -72 36 rmoveto 0 36 rlineto 
  134.     0 height ydot mul %d 100 div mul moveto 
  135.     -72 0 rmoveto 36 0 rlineto 
  136.     36 36 rmoveto 0 36 rlineto 
  137.     stroke